home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #2 / Amiga Plus CD - 1999 - No. 2.iso / System-Boost / Grafik / raylabwos / raygui.mrx < prev    next >
Text File  |  1998-11-08  |  4KB  |  107 lines
  1. /* RaylabGUI 1.0 © 1998 Jarmo Laakkonen */
  2.  
  3. options results
  4.  
  5. if ~show(l,'rexxsupport.library') then
  6.     call addlib('rexxsupport.library',0,-30,0)
  7.  
  8. address COMMAND
  9. 'assign raylab: ""'
  10.  
  11. address RAYGUI
  12.  
  13. FALSE=0
  14. TRUE=1
  15.  
  16. Group_Columns=0x8042f416
  17. Application_AboutMUI=0x8042d21d
  18.  
  19.  
  20. /* Cyclegadget items */
  21. displayitems='None,Request,Hires-Lace 16C,Lores HAM6,Lores-Lace HAM6,Lores HAM8,Lores-Lace HAM8,Hires HAM8,Hires-Lace HAM8'
  22. renderitems='Trace,Quick'
  23. ardepthitems='None,2,3,4'
  24. formatitems='TGA,IFF,PPM,None'
  25.  
  26. window ID MAIN TITLE '"RaylabGUI 1.0"' COMMAND 'quit' PORT RAYGUI
  27.     menu ID PROJ LABEL 'Project'
  28.         menu ID ABOUT LABEL 'About'
  29.             item command '"sys:rexxc/rx raygui.rexx ABOUT"' PORT COMMAND LABEL 'RaylabGUI'
  30.             item command '"method 'Application_AboutMUI' 0"' port RAYGUI LABEL 'MUI'
  31.         endmenu
  32.     item command 'quit' PORT RAYGUI LABEL 'Quit'
  33.     endmenu
  34.  
  35.     group
  36.         text LABEL '\033cRaylabGUI Copyright © 1998 Jarmo Laakkonen\nEmail: jami.laakkonen@kolumbus.fi'
  37.     endgroup
  38.  
  39.     /* File options */
  40.     group FRAME
  41.         label CENTER LABEL 'Scene file:'
  42.         popasl ID GETF PORT RAYGUI HELP '"Input filename"' CONTENT ''
  43.         button PORT COMMAND HELP '"Edit scene.\nEdit raygui.rexx to use your own editor."' COMMAND '"sys:rexxc/rx raygui.rexx EDIT"' LABEL 'Edit'
  44.         label CENTER LABEL 'Output file:'
  45.         popasl ID SAVEF PORT RAYGUI HELP '"Output filename"' CONTENT ''
  46.         button PORT COMMAND HELP '"View output picture.\nEdit raygui.rexx to use your own viewer."' COMMAND '"sys:rexxc/rx raygui.rexx VIEW"' LABEL 'View'
  47.     endgroup
  48.  
  49.     group HORIZ
  50.  
  51.         /* Display options */
  52.         group FRAME ATTRS Group_Columns 2 LABEL 'Render options'
  53.             label LABEL 'Display type:'
  54.             cycle ID DPLAY NODE 'sct4.12.5' HELP '"Display type.\nSelect none or grayscale for best performance."' LABELS displayitems
  55.             label LABEL 'Render method:'
  56.             cycle ID RMETH NODE 'sct4.12.10' HELP '"Render method.\nUse quick for preview images."' LABELS renderitems
  57.             label LABEL 'Recursion depth:'
  58.             string ID RDEP NODE 'sct4.12.4' HELP '"Recursion depth.\nUsually you do not need to change this."' CONTENT '10'
  59.         endgroup
  60.  
  61.         /* Antialiasing options */
  62.         group FRAME ATTRS Group_Columns 2 LABEL 'Antialiasing options'
  63.             label LABEL 'Recursion depth:'
  64.             cycle ID ARDEP NODE 'sct4.12.6' HELP '"Antialiasing recursion depth.\nSpecify none for preview images and 2 or 3 for final render."' LABELS ardepthitems
  65.             label LABEL 'Jitter:'
  66.             string ID JTTER NODE 'sct4.12.8' HELP '"Antialiasing jitter.\nUsually you do not need to change this."' CONTENT '0.05'
  67.             label LABEL 'Threshold:'
  68.             string ID THOLD NODE 'sct4.12.7' HELP '"Antialiasing threshold.\nUsually you do not need to change this."' CONTENT '0.3'
  69.         endgroup
  70.     endgroup
  71.  
  72.     /* Image options */
  73.     group FRAME HORIZ LABEL 'Image options'
  74.         label 'Format:'
  75.         cycle ID FMAT NODE 'sct4.12.3' PORT COMMAND COMMAND '"sys:rexxc/rx raylab:raygui.rexx CYCLEHIT"' HELP '"Output image format.\nIf you experience problems with IFF images, use TGA instead."' LABELS formatitems
  76.         label 'Width:'
  77.         string ID WIDTH NODE 'sct4.12.1' HELP '"Output image width."' CONTENT '320'
  78.         label 'Height:'
  79.         string ID HGHT NODE 'sct4.12.2' HELP '"Output image heigth."' CONTENT '240'
  80.     endgroup
  81.  
  82.     /* Control buttons */
  83.     group HORIZ
  84.       button ID RDER PORT COMMAND HELP '"Start rendering."' COMMAND '"sys:rexxc/rx raygui.rexx RENDER"' LABEL 'Render'
  85.     button ID STOP PORT COMMAND HELP '"Stop rendering."' COMMAND '"sys:rexxc/rx raygui.rexx STOP"' LABEL 'Stop'
  86.         /*button ID STOP PORT INLINE HELP '"Stop rendering."' COMMAND """
  87.             address COMMAND;
  88.             'c:breakname raylab F';
  89.                         call delay(60);
  90.             address RAYGUI;
  91.             text ID STUS LABEL '\033cAborted'; """ LABEL 'Stop'*/
  92.     endgroup
  93.  
  94.   /* Status line */
  95.   group HORIZ
  96.     text ID STUS LABEL '\033cWaiting'
  97.   endgroup
  98.  
  99. endwindow
  100.  
  101. /* Check if breakname is installed */
  102. if ~Exists('c:breakname') then do
  103.     request TITLE 'About' GADGETS 'OK' STRING 'You need breakname in your c: assign!'
  104.     quit
  105.     exit
  106.     end
  107.